home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EGAVGA.SWG / 0070_Wait for RETRACE.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-26  |  319b  |  14 lines
  1.   {
  2.   *  PROCEDURE WaitRetrace
  3.   *
  4.   *  Waits for a verticle retrace to complete before exiting.  Useful
  5.   *  for reducing flicker in video intensive operations, like color
  6.   *  cycling.
  7.   }
  8.  
  9. PROCEDURE WaitRetrace;
  10.  begin
  11.    while ((Port[$3DA] AND 8) > 0) do;
  12.    while ((Port[$3DA] AND 8) = 0) do;
  13.  end;
  14.